/ Revista CD Expert 32 / CD Expert nº 32.iso / Unreal T / utdemo338.exe / System / UWindow.u / UWindowWindow_UWindowListBox_ScriptText.TextBuffer

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 4e 57 2f 2f 3d 3d 3d 3d |........|NW//====|
|00000010| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000020| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000030| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000040| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000050| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 0a 2f 2f 20 55 57 |========|=..// UW|
|00000060| 69 6e 64 6f 77 4c 69 73 | 74 42 6f 78 20 2d 20 61 |indowLis|tBox - a|
|00000070| 20 6c 69 73 74 62 6f 78 | 0d 0a 2f 2f 3d 3d 3d 3d | listbox|..//====|
|00000080| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 0a 63 6c 61 73 73 |========|=..class|
|000000d0| 20 55 57 69 6e 64 6f 77 | 4c 69 73 74 42 6f 78 20 | UWindow|ListBox |
|000000e0| 65 78 74 65 6e 64 73 20 | 55 57 69 6e 64 6f 77 4c |extends |UWindowL|
|000000f0| 69 73 74 43 6f 6e 74 72 | 6f 6c 3b 0d 0a 0d 0a 76 |istContr|ol;....v|
|00000100| 61 72 20 66 6c 6f 61 74 | 09 09 09 09 49 74 65 6d |ar float|....Item|
|00000110| 48 65 69 67 68 74 3b 0d | 0a 76 61 72 20 55 57 69 |Height;.|.var UWi|
|00000120| 6e 64 6f 77 56 53 63 72 | 6f 6c 6c 62 61 72 09 56 |ndowVScr|ollbar.V|
|00000130| 65 72 74 53 42 3b 0d 0a | 76 61 72 20 55 57 69 6e |ertSB;..|var UWin|
|00000140| 64 6f 77 4c 69 73 74 42 | 6f 78 49 74 65 6d 09 53 |dowListB|oxItem.S|
|00000150| 65 6c 65 63 74 65 64 49 | 74 65 6d 3b 0d 0a 0d 0a |electedI|tem;....|
|00000160| 76 61 72 20 62 6f 6f 6c | 09 09 09 09 62 43 61 6e |var bool|....bCan|
|00000170| 44 72 61 67 3b 0d 0a 76 | 61 72 20 62 6f 6f 6c 09 |Drag;..v|ar bool.|
|00000180| 09 09 09 62 43 61 6e 44 | 72 61 67 45 78 74 65 72 |...bCanD|ragExter|
|00000190| 6e 61 6c 3b 0d 0a 76 61 | 72 20 73 74 72 69 6e 67 |nal;..va|r string|
|000001a0| 09 09 09 09 44 65 66 61 | 75 6c 74 48 65 6c 70 54 |....Defa|ultHelpT|
|000001b0| 65 78 74 3b 0d 0a 76 61 | 72 20 62 6f 6f 6c 09 09 |ext;..va|r bool..|
|000001c0| 09 09 62 44 72 61 67 67 | 69 6e 67 3b 0d 0a 76 61 |..bDragg|ing;..va|
|000001d0| 72 20 66 6c 6f 61 74 09 | 09 09 09 44 72 61 67 59 |r float.|...DragY|
|000001e0| 3b 0d 0a 76 61 72 20 55 | 57 69 6e 64 6f 77 4c 69 |;..var U|WindowLi|
|000001f0| 73 74 42 6f 78 09 09 44 | 6f 75 62 6c 65 43 6c 69 |stBox..D|oubleCli|
|00000200| 63 6b 4c 69 73 74 3b 09 | 2f 2f 20 6c 69 73 74 20 |ckList;.|// list |
|00000210| 74 6f 20 73 65 6e 64 20 | 69 74 65 6d 73 20 74 6f |to send |items to|
|00000220| 20 6f 6e 20 64 6f 75 62 | 6c 65 2d 63 6c 69 63 6b | on doub|le-click|
|00000230| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 43 72 65 |....func|tion Cre|
|00000240| 61 74 65 64 28 29 0d 0a | 7b 0d 0a 09 53 75 70 65 |ated()..|{...Supe|
|00000250| 72 2e 43 72 65 61 74 65 | 64 28 29 3b 0d 0a 09 56 |r.Create|d();...V|
|00000260| 65 72 74 53 42 20 3d 20 | 55 57 69 6e 64 6f 77 56 |ertSB = |UWindowV|
|00000270| 53 63 72 6f 6c 6c 62 61 | 72 28 43 72 65 61 74 65 |Scrollba|r(Create|
|00000280| 57 69 6e 64 6f 77 28 63 | 6c 61 73 73 27 55 57 69 |Window(c|lass'UWi|
|00000290| 6e 64 6f 77 56 53 63 72 | 6f 6c 6c 62 61 72 27 2c |ndowVScr|ollbar',|
|000002a0| 20 57 69 6e 57 69 64 74 | 68 2d 31 32 2c 20 30 2c | WinWidt|h-12, 0,|
|000002b0| 20 31 32 2c 20 57 69 6e | 48 65 69 67 68 74 29 29 | 12, Win|Height))|
|000002c0| 3b 0d 0a 7d 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |;..}....|function|
|000002d0| 20 42 65 66 6f 72 65 50 | 61 69 6e 74 28 43 61 6e | BeforeP|aint(Can|
|000002e0| 76 61 73 20 43 2c 20 66 | 6c 6f 61 74 20 4d 6f 75 |vas C, f|loat Mou|
|000002f0| 73 65 58 2c 20 66 6c 6f | 61 74 20 4d 6f 75 73 65 |seX, flo|at Mouse|
|00000300| 59 29 0d 0a 7b 0d 0a 09 | 6c 6f 63 61 6c 20 55 57 |Y)..{...|local UW|
|00000310| 69 6e 64 6f 77 4c 69 73 | 74 42 6f 78 49 74 65 6d |indowLis|tBoxItem|
|00000320| 20 4f 76 65 72 49 74 65 | 6d 3b 0d 0a 09 6c 6f 63 | OverIte|m;...loc|
|00000330| 61 6c 20 73 74 72 69 6e | 67 20 4e 65 77 48 65 6c |al strin|g NewHel|
|00000340| 70 54 65 78 74 3b 0d 0a | 0d 0a 09 56 65 72 74 53 |pText;..|...VertS|
|00000350| 42 2e 53 65 74 52 61 6e | 67 65 28 30 2c 20 49 74 |B.SetRan|ge(0, It|
|00000360| 65 6d 73 2e 43 6f 75 6e | 74 53 68 6f 77 6e 28 29 |ems.Coun|tShown()|
|00000370| 2c 20 69 6e 74 28 57 69 | 6e 48 65 69 67 68 74 2f |, int(Wi|nHeight/|
|00000380| 49 74 65 6d 48 65 69 67 | 68 74 29 29 3b 0d 0a 0d |ItemHeig|ht));...|
|00000390| 0a 09 4e 65 77 48 65 6c | 70 54 65 78 74 20 3d 20 |..NewHel|pText = |
|000003a0| 44 65 66 61 75 6c 74 48 | 65 6c 70 54 65 78 74 3b |DefaultH|elpText;|
|000003b0| 0d 0a 09 69 66 28 53 65 | 6c 65 63 74 65 64 49 74 |...if(Se|lectedIt|
|000003c0| 65 6d 20 21 3d 20 4e 6f | 6e 65 29 0d 0a 09 7b 0d |em != No|ne)...{.|
|000003d0| 0a 09 09 4f 76 65 72 49 | 74 65 6d 20 3d 20 47 65 |...OverI|tem = Ge|
|000003e0| 74 49 74 65 6d 41 74 28 | 4d 6f 75 73 65 58 2c 20 |tItemAt(|MouseX, |
|000003f0| 4d 6f 75 73 65 59 29 3b | 0d 0a 09 09 69 66 28 4f |MouseY);|....if(O|
|00000400| 76 65 72 49 74 65 6d 20 | 3d 3d 20 53 65 6c 65 63 |verItem |== Selec|
|00000410| 74 65 64 49 74 65 6d 20 | 26 26 20 4f 76 65 72 49 |tedItem |&& OverI|
|00000420| 74 65 6d 2e 48 65 6c 70 | 54 65 78 74 20 21 3d 20 |tem.Help|Text != |
|00000430| 22 22 29 0d 0a 09 09 09 | 4e 65 77 48 65 6c 70 54 |"").....|NewHelpT|
|00000440| 65 78 74 20 3d 20 4f 76 | 65 72 49 74 65 6d 2e 48 |ext = Ov|erItem.H|
|00000450| 65 6c 70 54 65 78 74 3b | 0d 0a 09 7d 0d 0a 09 0d |elpText;|...}....|
|00000460| 0a 09 69 66 28 4e 65 77 | 48 65 6c 70 54 65 78 74 |..if(New|HelpText|
|00000470| 20 21 3d 20 48 65 6c 70 | 54 65 78 74 29 0d 0a 09 | != Help|Text)...|
|00000480| 7b 0d 0a 09 09 48 65 6c | 70 54 65 78 74 20 3d 20 |{....Hel|pText = |
|00000490| 4e 65 77 48 65 6c 70 54 | 65 78 74 3b 0d 0a 09 09 |NewHelpT|ext;....|
|000004a0| 4e 6f 74 69 66 79 28 44 | 45 5f 48 65 6c 70 43 68 |Notify(D|E_HelpCh|
|000004b0| 61 6e 67 65 64 29 3b 0d | 0a 09 7d 0d 0a 7d 0d 0a |anged);.|..}..}..|
|000004c0| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 53 65 74 48 65 |..functi|on SetHe|
|000004d0| 6c 70 54 65 78 74 28 73 | 74 72 69 6e 67 20 54 29 |lpText(s|tring T)|
|000004e0| 0d 0a 7b 0d 0a 09 53 75 | 70 65 72 2e 53 65 74 48 |..{...Su|per.SetH|
|000004f0| 65 6c 70 54 65 78 74 28 | 54 29 3b 0d 0a 09 44 65 |elpText(|T);...De|
|00000500| 66 61 75 6c 74 48 65 6c | 70 54 65 78 74 20 3d 20 |faultHel|pText = |
|00000510| 54 3b 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |T;..}...|.functio|
|00000520| 6e 20 53 6f 72 74 28 29 | 0d 0a 7b 0d 0a 09 49 74 |n Sort()|..{...It|
|00000530| 65 6d 73 2e 53 6f 72 74 | 28 29 3b 0d 0a 7d 0d 0a |ems.Sort|();..}..|
|00000540| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 50 61 69 6e 74 |..functi|on Paint|
|00000550| 28 43 61 6e 76 61 73 20 | 43 2c 20 66 6c 6f 61 74 |(Canvas |C, float|
|00000560| 20 4d 6f 75 73 65 58 2c | 20 66 6c 6f 61 74 20 4d | MouseX,| float M|
|00000570| 6f 75 73 65 59 29 0d 0a | 7b 0d 0a 09 6c 6f 63 61 |ouseY)..|{...loca|
|00000580| 6c 20 66 6c 6f 61 74 20 | 79 3b 0d 0a 09 6c 6f 63 |l float |y;...loc|
|00000590| 61 6c 20 55 57 69 6e 64 | 6f 77 4c 69 73 74 20 43 |al UWind|owList C|
|000005a0| 75 72 49 74 65 6d 3b 0d | 0a 09 6c 6f 63 61 6c 20 |urItem;.|..local |
|000005b0| 69 6e 74 20 69 3b 0d 0a | 09 0d 0a 09 43 75 72 49 |int i;..|....CurI|
|000005c0| 74 65 6d 20 3d 20 49 74 | 65 6d 73 2e 4e 65 78 74 |tem = It|ems.Next|
|000005d0| 3b 0d 0a 09 69 20 3d 20 | 30 3b 0d 0a 0d 0a 09 77 |;...i = |0;.....w|
|000005e0| 68 69 6c 65 28 28 43 75 | 72 49 74 65 6d 20 21 3d |hile((Cu|rItem !=|
|000005f0| 20 4e 6f 6e 65 29 20 26 | 26 20 28 69 20 3c 20 56 | None) &|& (i < V|
|00000600| 65 72 74 53 42 2e 50 6f | 73 29 29 20 0d 0a 09 7b |ertSB.Po|s)) ...{|
|00000610| 0d 0a 09 09 69 66 28 43 | 75 72 49 74 65 6d 2e 53 |....if(C|urItem.S|
|00000620| 68 6f 77 54 68 69 73 49 | 74 65 6d 28 29 29 0d 0a |howThisI|tem())..|
|00000630| 09 09 09 69 2b 2b 3b 0d | 0a 09 09 43 75 72 49 74 |...i++;.|...CurIt|
|00000640| 65 6d 20 3d 20 43 75 72 | 49 74 65 6d 2e 4e 65 78 |em = Cur|Item.Nex|
|00000650| 74 3b 0d 0a 09 7d 0d 0a | 0d 0a 09 66 6f 72 28 79 |t;...}..|...for(y|
|00000660| 3d 30 3b 28 79 20 3c 20 | 57 69 6e 48 65 69 67 68 |=0;(y < |WinHeigh|
|00000670| 74 29 20 26 26 20 28 43 | 75 72 49 74 65 6d 20 21 |t) && (C|urItem !|
|00000680| 3d 20 4e 6f 6e 65 29 3b | 43 75 72 49 74 65 6d 20 |= None);|CurItem |
|00000690| 3d 20 43 75 72 49 74 65 | 6d 2e 4e 65 78 74 29 0d |= CurIte|m.Next).|
|000006a0| 0a 09 7b 0d 0a 09 09 69 | 66 28 43 75 72 49 74 65 |..{....i|f(CurIte|
|000006b0| 6d 2e 53 68 6f 77 54 68 | 69 73 49 74 65 6d 28 29 |m.ShowTh|isItem()|
|000006c0| 29 0d 0a 09 09 7b 0d 0a | 09 09 09 44 72 61 77 49 |)....{..|...DrawI|
|000006d0| 74 65 6d 28 43 2c 20 43 | 75 72 49 74 65 6d 2c 20 |tem(C, C|urItem, |
|000006e0| 30 2c 20 79 2c 20 57 69 | 6e 57 69 64 74 68 20 2d |0, y, Wi|nWidth -|
|000006f0| 20 31 32 2c 20 49 74 65 | 6d 48 65 69 67 68 74 29 | 12, Ite|mHeight)|
|00000700| 3b 0d 0a 09 09 09 79 20 | 3d 20 79 20 2b 20 49 74 |;.....y |= y + It|
|00000710| 65 6d 48 65 69 67 68 74 | 3b 0d 0a 09 09 7d 0d 0a |emHeight|;....}..|
|00000720| 09 7d 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |.}..}...|.functio|
|00000730| 6e 20 52 65 73 69 7a 65 | 64 28 29 0d 0a 7b 0d 0a |n Resize|d()..{..|
|00000740| 09 53 75 70 65 72 2e 52 | 65 73 69 7a 65 64 28 29 |.Super.R|esized()|
|00000750| 3b 0d 0a 0d 0a 09 56 65 | 72 74 53 42 2e 57 69 6e |;.....Ve|rtSB.Win|
|00000760| 4c 65 66 74 20 3d 20 57 | 69 6e 57 69 64 74 68 2d |Left = W|inWidth-|
|00000770| 31 32 3b 0d 0a 09 56 65 | 72 74 53 42 2e 57 69 6e |12;...Ve|rtSB.Win|
|00000780| 54 6f 70 20 3d 20 30 3b | 0d 0a 09 56 65 72 74 53 |Top = 0;|...VertS|
|00000790| 42 2e 53 65 74 53 69 7a | 65 28 31 32 2c 20 57 69 |B.SetSiz|e(12, Wi|
|000007a0| 6e 48 65 69 67 68 74 29 | 3b 0d 0a 7d 0d 0a 0d 0a |nHeight)|;..}....|
|000007b0| 66 75 6e 63 74 69 6f 6e | 20 55 57 69 6e 64 6f 77 |function| UWindow|
|000007c0| 4c 69 73 74 42 6f 78 49 | 74 65 6d 20 47 65 74 49 |ListBoxI|tem GetI|
|000007d0| 74 65 6d 41 74 28 66 6c | 6f 61 74 20 4d 6f 75 73 |temAt(fl|oat Mous|
|000007e0| 65 58 2c 20 66 6c 6f 61 | 74 20 4d 6f 75 73 65 59 |eX, floa|t MouseY|
|000007f0| 29 0d 0a 7b 0d 0a 09 6c | 6f 63 61 6c 20 66 6c 6f |)..{...l|ocal flo|
|00000800| 61 74 20 79 3b 0d 0a 09 | 6c 6f 63 61 6c 20 55 57 |at y;...|local UW|
|00000810| 69 6e 64 6f 77 4c 69 73 | 74 20 43 75 72 49 74 65 |indowLis|t CurIte|
|00000820| 6d 3b 0d 0a 09 6c 6f 63 | 61 6c 20 69 6e 74 20 69 |m;...loc|al int i|
|00000830| 3b 0d 0a 09 0d 0a 09 69 | 66 28 4d 6f 75 73 65 58 |;......i|f(MouseX|
|00000840| 20 3c 20 30 20 7c 7c 20 | 4d 6f 75 73 65 58 20 3e | < 0 || |MouseX >|
|00000850| 20 57 69 6e 57 69 64 74 | 68 29 0d 0a 09 09 72 65 | WinWidt|h)....re|
|00000860| 74 75 72 6e 20 4e 6f 6e | 65 3b 0d 0a 0d 0a 09 43 |turn Non|e;.....C|
|00000870| 75 72 49 74 65 6d 20 3d | 20 49 74 65 6d 73 2e 4e |urItem =| Items.N|
|00000880| 65 78 74 3b 0d 0a 09 69 | 20 3d 20 30 3b 0d 0a 0d |ext;...i| = 0;...|
|00000890| 0a 09 77 68 69 6c 65 28 | 28 43 75 72 49 74 65 6d |..while(|(CurItem|
|000008a0| 20 21 3d 20 4e 6f 6e 65 | 29 20 26 26 20 28 69 20 | != None|) && (i |
|000008b0| 3c 20 56 65 72 74 53 42 | 2e 50 6f 73 29 29 20 0d |< VertSB|.Pos)) .|
|000008c0| 0a 09 7b 0d 0a 09 09 69 | 66 28 43 75 72 49 74 65 |..{....i|f(CurIte|
|000008d0| 6d 2e 53 68 6f 77 54 68 | 69 73 49 74 65 6d 28 29 |m.ShowTh|isItem()|
|000008e0| 29 0d 0a 09 09 09 69 2b | 2b 3b 0d 0a 09 09 43 75 |).....i+|+;....Cu|
|000008f0| 72 49 74 65 6d 20 3d 20 | 43 75 72 49 74 65 6d 2e |rItem = |CurItem.|
|00000900| 4e 65 78 74 3b 0d 0a 09 | 7d 0d 0a 0d 0a 09 66 6f |Next;...|}.....fo|
|00000910| 72 28 79 3d 30 3b 28 79 | 20 3c 20 57 69 6e 48 65 |r(y=0;(y| < WinHe|
|00000920| 69 67 68 74 29 20 26 26 | 20 28 43 75 72 49 74 65 |ight) &&| (CurIte|
|00000930| 6d 20 21 3d 20 4e 6f 6e | 65 29 3b 43 75 72 49 74 |m != Non|e);CurIt|
|00000940| 65 6d 20 3d 20 43 75 72 | 49 74 65 6d 2e 4e 65 78 |em = Cur|Item.Nex|
|00000950| 74 29 0d 0a 09 7b 0d 0a | 09 09 69 66 28 43 75 72 |t)...{..|..if(Cur|
|00000960| 49 74 65 6d 2e 53 68 6f | 77 54 68 69 73 49 74 65 |Item.Sho|wThisIte|
|00000970| 6d 28 29 29 0d 0a 09 09 | 7b 0d 0a 09 09 09 69 66 |m())....|{.....if|
|00000980| 28 4d 6f 75 73 65 59 20 | 3e 3d 20 79 20 26 26 20 |(MouseY |>= y && |
|00000990| 4d 6f 75 73 65 59 20 3c | 3d 20 79 2b 49 74 65 6d |MouseY <|= y+Item|
|000009a0| 48 65 69 67 68 74 29 0d | 0a 09 09 09 09 72 65 74 |Height).|.....ret|
|000009b0| 75 72 6e 20 55 57 69 6e | 64 6f 77 4c 69 73 74 42 |urn UWin|dowListB|
|000009c0| 6f 78 49 74 65 6d 28 43 | 75 72 49 74 65 6d 29 3b |oxItem(C|urItem);|
|000009d0| 0d 0a 09 09 09 79 20 3d | 20 79 20 2b 20 49 74 65 |.....y =| y + Ite|
|000009e0| 6d 48 65 69 67 68 74 3b | 0d 0a 09 09 7d 0d 0a 09 |mHeight;|....}...|
|000009f0| 7d 0d 0a 0d 0a 09 72 65 | 74 75 72 6e 20 4e 6f 6e |}.....re|turn Non|
|00000a00| 65 3b 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |e;..}...|.functio|
|00000a10| 6e 20 4d 61 6b 65 53 65 | 6c 65 63 74 65 64 56 69 |n MakeSe|lectedVi|
|00000a20| 73 69 62 6c 65 28 29 0d | 0a 7b 0d 0a 09 6c 6f 63 |sible().|.{...loc|
|00000a30| 61 6c 20 55 57 69 6e 64 | 6f 77 4c 69 73 74 20 43 |al UWind|owList C|
|00000a40| 75 72 49 74 65 6d 3b 0d | 0a 09 6c 6f 63 61 6c 20 |urItem;.|..local |
|00000a50| 69 6e 74 20 69 3b 0d 0a | 09 0d 0a 09 56 65 72 74 |int i;..|....Vert|
|00000a60| 53 42 2e 53 65 74 52 61 | 6e 67 65 28 30 2c 20 49 |SB.SetRa|nge(0, I|
|00000a70| 74 65 6d 73 2e 43 6f 75 | 6e 74 53 68 6f 77 6e 28 |tems.Cou|ntShown(|
|00000a80| 29 2c 20 69 6e 74 28 57 | 69 6e 48 65 69 67 68 74 |), int(W|inHeight|
|00000a90| 2f 49 74 65 6d 48 65 69 | 67 68 74 29 29 3b 0d 0a |/ItemHei|ght));..|
|00000aa0| 0d 0a 09 69 66 28 53 65 | 6c 65 63 74 65 64 49 74 |...if(Se|lectedIt|
|00000ab0| 65 6d 20 3d 3d 20 4e 6f | 6e 65 29 0d 0a 09 09 72 |em == No|ne)....r|
|00000ac0| 65 74 75 72 6e 3b 0d 0a | 0d 0a 09 69 20 3d 20 30 |eturn;..|...i = 0|
|00000ad0| 3b 0d 0a 09 66 6f 72 28 | 43 75 72 49 74 65 6d 3d |;...for(|CurItem=|
|00000ae0| 49 74 65 6d 73 2e 4e 65 | 78 74 3b 20 43 75 72 49 |Items.Ne|xt; CurI|
|00000af0| 74 65 6d 20 21 3d 20 4e | 6f 6e 65 3b 20 43 75 72 |tem != N|one; Cur|
|00000b00| 49 74 65 6d 20 3d 20 43 | 75 72 49 74 65 6d 2e 4e |Item = C|urItem.N|
|00000b10| 65 78 74 29 0d 0a 09 7b | 0d 0a 09 09 69 66 28 43 |ext)...{|....if(C|
|00000b20| 75 72 49 74 65 6d 20 3d | 3d 20 53 65 6c 65 63 74 |urItem =|= Select|
|00000b30| 65 64 49 74 65 6d 29 0d | 0a 09 09 09 62 72 65 61 |edItem).|....brea|
|00000b40| 6b 3b 0d 0a 09 09 69 66 | 28 43 75 72 49 74 65 6d |k;....if|(CurItem|
|00000b50| 2e 53 68 6f 77 54 68 69 | 73 49 74 65 6d 28 29 29 |.ShowThi|sItem())|
|00000b60| 0d 0a 09 09 09 69 2b 2b | 3b 0d 0a 09 7d 0d 0a 0d |.....i++|;...}...|
|00000b70| 0a 09 56 65 72 74 53 42 | 2e 53 68 6f 77 28 69 29 |..VertSB|.Show(i)|
|00000b80| 3b 0d 0a 7d 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |;..}....|function|
|00000b90| 20 53 65 74 53 65 6c 65 | 63 74 65 64 49 74 65 6d | SetSele|ctedItem|
|00000ba0| 28 55 57 69 6e 64 6f 77 | 4c 69 73 74 42 6f 78 49 |(UWindow|ListBoxI|
|00000bb0| 74 65 6d 20 4e 65 77 53 | 65 6c 65 63 74 65 64 29 |tem NewS|elected)|
|00000bc0| 0d 0a 7b 0d 0a 09 69 66 | 28 4e 65 77 53 65 6c 65 |..{...if|(NewSele|
|00000bd0| 63 74 65 64 20 21 3d 20 | 4e 6f 6e 65 20 26 26 20 |cted != |None && |
|00000be0| 53 65 6c 65 63 74 65 64 | 49 74 65 6d 20 21 3d 20 |Selected|Item != |
|00000bf0| 4e 65 77 53 65 6c 65 63 | 74 65 64 29 0d 0a 09 7b |NewSelec|ted)...{|
|00000c00| 0d 0a 09 09 69 66 28 53 | 65 6c 65 63 74 65 64 49 |....if(S|electedI|
|00000c10| 74 65 6d 20 21 3d 20 4e | 6f 6e 65 29 0d 0a 09 09 |tem != N|one)....|
|00000c20| 09 53 65 6c 65 63 74 65 | 64 49 74 65 6d 2e 62 53 |.Selecte|dItem.bS|
|00000c30| 65 6c 65 63 74 65 64 20 | 3d 20 46 61 6c 73 65 3b |elected |= False;|
|00000c40| 0d 0a 0d 0a 09 09 53 65 | 6c 65 63 74 65 64 49 74 |......Se|lectedIt|
|00000c50| 65 6d 20 3d 20 4e 65 77 | 53 65 6c 65 63 74 65 64 |em = New|Selected|
|00000c60| 3b 0d 0a 0d 0a 09 09 69 | 66 28 53 65 6c 65 63 74 |;......i|f(Select|
|00000c70| 65 64 49 74 65 6d 20 21 | 3d 20 4e 6f 6e 65 29 0d |edItem !|= None).|
|00000c80| 0a 09 09 09 53 65 6c 65 | 63 74 65 64 49 74 65 6d |....Sele|ctedItem|
|00000c90| 2e 62 53 65 6c 65 63 74 | 65 64 20 3d 20 54 72 75 |.bSelect|ed = Tru|
|00000ca0| 65 3b 0d 0a 09 09 0d 0a | 09 09 4e 6f 74 69 66 79 |e;......|..Notify|
|00000cb0| 28 44 45 5f 43 6c 69 63 | 6b 29 3b 0d 0a 09 7d 0d |(DE_Clic|k);...}.|
|00000cc0| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 53 |.}....fu|nction S|
|00000cd0| 65 74 53 65 6c 65 63 74 | 65 64 28 66 6c 6f 61 74 |etSelect|ed(float|
|00000ce0| 20 58 2c 20 66 6c 6f 61 | 74 20 59 29 0d 0a 7b 0d | X, floa|t Y)..{.|
|00000cf0| 0a 09 6c 6f 63 61 6c 20 | 55 57 69 6e 64 6f 77 4c |..local |UWindowL|
|00000d00| 69 73 74 42 6f 78 49 74 | 65 6d 20 4e 65 77 53 65 |istBoxIt|em NewSe|
|00000d10| 6c 65 63 74 65 64 3b 0d | 0a 0d 0a 09 4e 65 77 53 |lected;.|....NewS|
|00000d20| 65 6c 65 63 74 65 64 20 | 3d 20 47 65 74 49 74 65 |elected |= GetIte|
|00000d30| 6d 41 74 28 58 2c 20 59 | 29 3b 0d 0a 09 53 65 74 |mAt(X, Y|);...Set|
|00000d40| 53 65 6c 65 63 74 65 64 | 49 74 65 6d 28 4e 65 77 |Selected|Item(New|
|00000d50| 53 65 6c 65 63 74 65 64 | 29 3b 0d 0a 7d 0d 0a 0d |Selected|);..}...|
|00000d60| 0a 66 75 6e 63 74 69 6f | 6e 20 4c 4d 6f 75 73 65 |.functio|n LMouse|
|00000d70| 44 6f 77 6e 28 66 6c 6f | 61 74 20 58 2c 20 66 6c |Down(flo|at X, fl|
|00000d80| 6f 61 74 20 59 29 0d 0a | 7b 0d 0a 09 53 75 70 65 |oat Y)..|{...Supe|
|00000d90| 72 2e 4c 4d 6f 75 73 65 | 44 6f 77 6e 28 58 2c 20 |r.LMouse|Down(X, |
|00000da0| 59 29 3b 0d 0a 0d 0a 09 | 53 65 74 53 65 6c 65 63 |Y);.....|SetSelec|
|00000db0| 74 65 64 28 58 2c 20 59 | 29 3b 0d 0a 0d 0a 09 69 |ted(X, Y|);.....i|
|00000dc0| 66 28 62 43 61 6e 44 72 | 61 67 20 7c 7c 20 62 43 |f(bCanDr|ag || bC|
|00000dd0| 61 6e 44 72 61 67 45 78 | 74 65 72 6e 61 6c 29 0d |anDragEx|ternal).|
|00000de0| 0a 09 7b 0d 0a 09 09 62 | 44 72 61 67 67 69 6e 67 |..{....b|Dragging|
|00000df0| 20 3d 20 54 72 75 65 3b | 0d 0a 09 09 52 6f 6f 74 | = True;|....Root|
|00000e00| 2e 43 61 70 74 75 72 65 | 4d 6f 75 73 65 28 29 3b |.Capture|Mouse();|
|00000e10| 0d 0a 09 09 44 72 61 67 | 59 20 3d 20 59 3b 0d 0a |....Drag|Y = Y;..|
|00000e20| 09 7d 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |.}..}...|.functio|
|00000e30| 6e 20 44 6f 75 62 6c 65 | 43 6c 69 63 6b 28 66 6c |n Double|Click(fl|
|00000e40| 6f 61 74 20 58 2c 20 66 | 6c 6f 61 74 20 59 29 0d |oat X, f|loat Y).|
|00000e50| 0a 7b 0d 0a 09 53 75 70 | 65 72 2e 44 6f 75 62 6c |.{...Sup|er.Doubl|
|00000e60| 65 43 6c 69 63 6b 28 58 | 2c 20 59 29 3b 0d 0a 0d |eClick(X|, Y);...|
|00000e70| 0a 09 69 66 28 47 65 74 | 49 74 65 6d 41 74 28 58 |..if(Get|ItemAt(X|
|00000e80| 2c 20 59 29 20 3d 3d 20 | 53 65 6c 65 63 74 65 64 |, Y) == |Selected|
|00000e90| 49 74 65 6d 29 0d 0a 09 | 7b 0d 0a 09 09 44 6f 75 |Item)...|{....Dou|
|00000ea0| 62 6c 65 43 6c 69 63 6b | 49 74 65 6d 28 53 65 6c |bleClick|Item(Sel|
|00000eb0| 65 63 74 65 64 49 74 65 | 6d 29 3b 0d 0a 09 7d 09 |ectedIte|m);...}.|
|00000ec0| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|00000ed0| 52 65 63 65 69 76 65 44 | 6f 75 62 6c 65 43 6c 69 |ReceiveD|oubleCli|
|00000ee0| 63 6b 49 74 65 6d 28 55 | 57 69 6e 64 6f 77 4c 69 |ckItem(U|WindowLi|
|00000ef0| 73 74 42 6f 78 20 4c 2c | 20 55 57 69 6e 64 6f 77 |stBox L,| UWindow|
|00000f00| 4c 69 73 74 42 6f 78 49 | 74 65 6d 20 49 29 0d 0a |ListBoxI|tem I)..|
|00000f10| 7b 0d 0a 09 49 2e 52 65 | 6d 6f 76 65 28 29 3b 0d |{...I.Re|move();.|
|00000f20| 0a 09 49 74 65 6d 73 2e | 41 70 70 65 6e 64 49 74 |..Items.|AppendIt|
|00000f30| 65 6d 28 49 29 3b 0d 0a | 09 53 65 74 53 65 6c 65 |em(I);..|.SetSele|
|00000f40| 63 74 65 64 49 74 65 6d | 28 49 29 3b 0d 0a 09 4c |ctedItem|(I);...L|
|00000f50| 2e 53 65 6c 65 63 74 65 | 64 49 74 65 6d 20 3d 20 |.Selecte|dItem = |
|00000f60| 4e 6f 6e 65 3b 0d 0a 09 | 4c 2e 4e 6f 74 69 66 79 |None;...|L.Notify|
|00000f70| 28 44 45 5f 43 68 61 6e | 67 65 29 3b 0d 0a 09 4e |(DE_Chan|ge);...N|
|00000f80| 6f 74 69 66 79 28 44 45 | 5f 43 68 61 6e 67 65 29 |otify(DE|_Change)|
|00000f90| 3b 0d 0a 7d 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |;..}....|function|
|00000fa0| 20 44 6f 75 62 6c 65 43 | 6c 69 63 6b 49 74 65 6d | DoubleC|lickItem|
|00000fb0| 28 55 57 69 6e 64 6f 77 | 4c 69 73 74 42 6f 78 49 |(UWindow|ListBoxI|
|00000fc0| 74 65 6d 20 49 29 0d 0a | 7b 0d 0a 09 69 66 28 44 |tem I)..|{...if(D|
|00000fd0| 6f 75 62 6c 65 43 6c 69 | 63 6b 4c 69 73 74 20 21 |oubleCli|ckList !|
|00000fe0| 3d 20 4e 6f 6e 65 20 26 | 26 20 49 20 21 3d 20 4e |= None &|& I != N|
|00000ff0| 6f 6e 65 29 0d 0a 09 09 | 44 6f 75 62 6c 65 43 6c |one)....|DoubleCl|
|00001000| 69 63 6b 4c 69 73 74 2e | 52 65 63 65 69 76 65 44 |ickList.|ReceiveD|
|00001010| 6f 75 62 6c 65 43 6c 69 | 63 6b 49 74 65 6d 28 53 |oubleCli|ckItem(S|
|00001020| 65 6c 66 2c 20 49 29 3b | 0d 0a 7d 0d 0a 0d 0a 66 |elf, I);|..}....f|
|00001030| 75 6e 63 74 69 6f 6e 20 | 4d 6f 75 73 65 4d 6f 76 |unction |MouseMov|
|00001040| 65 28 66 6c 6f 61 74 20 | 58 2c 20 66 6c 6f 61 74 |e(float |X, float|
|00001050| 20 59 29 0d 0a 7b 0d 0a | 09 6c 6f 63 61 6c 20 55 | Y)..{..|.local U|
|00001060| 57 69 6e 64 6f 77 4c 69 | 73 74 42 6f 78 49 74 65 |WindowLi|stBoxIte|
|00001070| 6d 20 4f 76 65 72 49 74 | 65 6d 3b 0d 0a 09 53 75 |m OverIt|em;...Su|
|00001080| 70 65 72 2e 4d 6f 75 73 | 65 4d 6f 76 65 28 58 2c |per.Mous|eMove(X,|
|00001090| 20 59 29 3b 0d 0a 0d 0a | 09 69 66 28 62 44 72 61 | Y);....|.if(bDra|
|000010a0| 67 67 69 6e 67 20 26 26 | 20 62 4d 6f 75 73 65 44 |gging &&| bMouseD|
|000010b0| 6f 77 6e 29 0d 0a 09 7b | 0d 0a 09 09 4f 76 65 72 |own)...{|....Over|
|000010c0| 49 74 65 6d 20 3d 20 47 | 65 74 49 74 65 6d 41 74 |Item = G|etItemAt|
|000010d0| 28 58 2c 20 59 29 3b 0d | 0a 09 09 69 66 28 62 43 |(X, Y);.|...if(bC|
|000010e0| 61 6e 44 72 61 67 20 26 | 26 20 4f 76 65 72 49 74 |anDrag &|& OverIt|
|000010f0| 65 6d 20 21 3d 20 53 65 | 6c 65 63 74 65 64 49 74 |em != Se|lectedIt|
|00001100| 65 6d 20 26 26 20 4f 76 | 65 72 49 74 65 6d 20 21 |em && Ov|erItem !|
|00001110| 3d 20 4e 6f 6e 65 20 26 | 26 20 53 65 6c 65 63 74 |= None &|& Select|
|00001120| 65 64 49 74 65 6d 20 21 | 3d 20 4e 6f 6e 65 29 0d |edItem !|= None).|
|00001130| 0a 09 09 7b 0d 0a 09 09 | 09 53 65 6c 65 63 74 65 |...{....|.Selecte|
|00001140| 64 49 74 65 6d 2e 52 65 | 6d 6f 76 65 28 29 3b 0d |dItem.Re|move();.|
|00001150| 0a 09 09 09 69 66 28 59 | 20 3c 20 44 72 61 67 59 |....if(Y| < DragY|
|00001160| 29 0d 0a 09 09 09 09 4f | 76 65 72 49 74 65 6d 2e |)......O|verItem.|
|00001170| 49 6e 73 65 72 74 49 74 | 65 6d 42 65 66 6f 72 65 |InsertIt|emBefore|
|00001180| 28 53 65 6c 65 63 74 65 | 64 49 74 65 6d 29 3b 0d |(Selecte|dItem);.|
|00001190| 0a 09 09 09 65 6c 73 65 | 0d 0a 09 09 09 09 4f 76 |....else|......Ov|
|000011a0| 65 72 49 74 65 6d 2e 49 | 6e 73 65 72 74 49 74 65 |erItem.I|nsertIte|
|000011b0| 6d 41 66 74 65 72 28 53 | 65 6c 65 63 74 65 64 49 |mAfter(S|electedI|
|000011c0| 74 65 6d 2c 20 54 72 75 | 65 29 3b 0d 0a 0d 0a 09 |tem, Tru|e);.....|
|000011d0| 09 09 4e 6f 74 69 66 79 | 28 44 45 5f 43 68 61 6e |..Notify|(DE_Chan|
|000011e0| 67 65 29 3b 0d 0a 0d 0a | 09 09 09 44 72 61 67 59 |ge);....|...DragY|
|000011f0| 20 3d 20 59 3b 0d 0a 09 | 09 7d 0d 0a 09 09 65 6c | = Y;...|.}....el|
|00001200| 73 65 0d 0a 09 09 7b 0d | 0a 09 09 09 69 66 28 62 |se....{.|....if(b|
|00001210| 43 61 6e 44 72 61 67 45 | 78 74 65 72 6e 61 6c 20 |CanDragE|xternal |
|00001220| 26 26 20 43 68 65 63 6b | 45 78 74 65 72 6e 61 6c |&& Check|External|
|00001230| 44 72 61 67 28 58 2c 20 | 59 29 20 21 3d 20 4e 6f |Drag(X, |Y) != No|
|00001240| 6e 65 29 0d 0a 09 09 09 | 09 62 44 72 61 67 67 69 |ne).....|.bDraggi|
|00001250| 6e 67 20 3d 20 46 61 6c | 73 65 3b 0d 0a 09 09 7d |ng = Fal|se;....}|
|00001260| 0d 0a 09 7d 0d 0a 09 65 | 6c 73 65 0d 0a 09 09 62 |...}...e|lse....b|
|00001270| 44 72 61 67 67 69 6e 67 | 20 3d 20 46 61 6c 73 65 |Dragging| = False|
|00001280| 3b 0d 0a 7d 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |;..}....|function|
|00001290| 20 62 6f 6f 6c 20 45 78 | 74 65 72 6e 61 6c 44 72 | bool Ex|ternalDr|
|000012a0| 61 67 4f 76 65 72 28 55 | 57 69 6e 64 6f 77 44 69 |agOver(U|WindowDi|
|000012b0| 61 6c 6f 67 43 6f 6e 74 | 72 6f 6c 20 45 78 74 65 |alogCont|rol Exte|
|000012c0| 72 6e 61 6c 43 6f 6e 74 | 72 6f 6c 2c 20 66 6c 6f |rnalCont|rol, flo|
|000012d0| 61 74 20 58 2c 20 66 6c | 6f 61 74 20 59 29 0d 0a |at X, fl|oat Y)..|
|000012e0| 7b 0d 0a 09 6c 6f 63 61 | 6c 20 55 57 69 6e 64 6f |{...loca|l UWindo|
|000012f0| 77 4c 69 73 74 42 6f 78 | 20 42 3b 0d 0a 09 6c 6f |wListBox| B;...lo|
|00001300| 63 61 6c 20 55 57 69 6e | 64 6f 77 4c 69 73 74 42 |cal UWin|dowListB|
|00001310| 6f 78 49 74 65 6d 20 4f | 76 65 72 49 74 65 6d 3b |oxItem O|verItem;|
|00001320| 0d 0a 0d 0a 09 2f 2f 20 | 53 75 62 63 6c 61 73 73 |.....// |Subclass|
|00001330| 20 73 68 6f 75 6c 64 20 | 72 65 74 75 72 6e 20 66 | should |return f|
|00001340| 61 6c 73 65 20 61 6e 64 | 20 6e 6f 74 20 63 61 6c |alse and| not cal|
|00001350| 6c 20 74 68 69 73 20 76 | 65 72 73 69 6f 6e 20 69 |l this v|ersion i|
|00001360| 66 20 74 68 69 73 20 65 | 78 74 65 72 6e 61 6c 0d |f this e|xternal.|
|00001370| 0a 09 2f 2f 20 64 72 61 | 67 20 73 68 6f 75 6c 64 |..// dra|g should|
|00001380| 20 62 65 20 64 65 6e 69 | 65 64 2e 0d 0a 0d 0a 09 | be deni|ed......|
|00001390| 42 20 3d 20 55 57 69 6e | 64 6f 77 4c 69 73 74 42 |B = UWin|dowListB|
|000013a0| 6f 78 28 45 78 74 65 72 | 6e 61 6c 43 6f 6e 74 72 |ox(Exter|nalContr|
|000013b0| 6f 6c 29 3b 0d 0a 09 69 | 66 28 42 20 21 3d 20 4e |ol);...i|f(B != N|
|000013c0| 6f 6e 65 20 26 26 20 42 | 2e 53 65 6c 65 63 74 65 |one && B|.Selecte|
|000013d0| 64 49 74 65 6d 20 21 3d | 20 4e 6f 6e 65 29 0d 0a |dItem !=| None)..|
|000013e0| 09 7b 09 0d 0a 09 09 4f | 76 65 72 49 74 65 6d 20 |.{.....O|verItem |
|000013f0| 3d 20 47 65 74 49 74 65 | 6d 41 74 28 58 2c 20 59 |= GetIte|mAt(X, Y|
|00001400| 29 3b 0d 0a 0d 0a 09 09 | 42 2e 53 65 6c 65 63 74 |);......|B.Select|
|00001410| 65 64 49 74 65 6d 2e 52 | 65 6d 6f 76 65 28 29 3b |edItem.R|emove();|
|00001420| 0d 0a 09 09 69 66 28 4f | 76 65 72 49 74 65 6d 20 |....if(O|verItem |
|00001430| 21 3d 20 4e 6f 6e 65 29 | 0d 0a 09 09 09 4f 76 65 |!= None)|.....Ove|
|00001440| 72 49 74 65 6d 2e 49 6e | 73 65 72 74 49 74 65 6d |rItem.In|sertItem|
|00001450| 42 65 66 6f 72 65 28 42 | 2e 53 65 6c 65 63 74 65 |Before(B|.Selecte|
|00001460| 64 49 74 65 6d 29 3b 0d | 0a 09 09 65 6c 73 65 0d |dItem);.|...else.|
|00001470| 0a 09 09 09 49 74 65 6d | 73 2e 41 70 70 65 6e 64 |....Item|s.Append|
|00001480| 49 74 65 6d 28 42 2e 53 | 65 6c 65 63 74 65 64 49 |Item(B.S|electedI|
|00001490| 74 65 6d 29 3b 0d 0a 0d | 0a 09 09 53 65 74 53 65 |tem);...|...SetSe|
|000014a0| 6c 65 63 74 65 64 49 74 | 65 6d 28 42 2e 53 65 6c |lectedIt|em(B.Sel|
|000014b0| 65 63 74 65 64 49 74 65 | 6d 29 3b 0d 0a 09 09 42 |ectedIte|m);....B|
|000014c0| 2e 53 65 6c 65 63 74 65 | 64 49 74 65 6d 20 3d 20 |.Selecte|dItem = |
|000014d0| 4e 6f 6e 65 3b 0d 0a 09 | 09 42 2e 4e 6f 74 69 66 |None;...|.B.Notif|
|000014e0| 79 28 44 45 5f 43 68 61 | 6e 67 65 29 3b 0d 0a 09 |y(DE_Cha|nge);...|
|000014f0| 09 4e 6f 74 69 66 79 28 | 44 45 5f 43 68 61 6e 67 |.Notify(|DE_Chang|
|00001500| 65 29 3b 0d 0a 0d 0a 09 | 09 69 66 28 62 43 61 6e |e);.....|.if(bCan|
|00001510| 44 72 61 67 20 7c 7c 20 | 62 43 61 6e 44 72 61 67 |Drag || |bCanDrag|
|00001520| 45 78 74 65 72 6e 61 6c | 29 0d 0a 09 09 7b 0d 0a |External|)....{..|
|00001530| 09 09 09 52 6f 6f 74 2e | 43 61 6e 63 65 6c 43 61 |...Root.|CancelCa|
|00001540| 70 74 75 72 65 28 29 3b | 0d 0a 09 09 09 62 44 72 |pture();|.....bDr|
|00001550| 61 67 67 69 6e 67 20 3d | 20 54 72 75 65 3b 0d 0a |agging =| True;..|
|00001560| 09 09 09 62 4d 6f 75 73 | 65 44 6f 77 6e 20 3d 20 |...bMous|eDown = |
|00001570| 54 72 75 65 3b 0d 0a 09 | 09 09 52 6f 6f 74 2e 43 |True;...|..Root.C|
|00001580| 61 70 74 75 72 65 4d 6f | 75 73 65 28 53 65 6c 66 |aptureMo|use(Self|
|00001590| 29 3b 0d 0a 09 09 09 44 | 72 61 67 59 20 3d 20 59 |);.....D|ragY = Y|
|000015a0| 3b 09 0d 0a 09 09 7d 0d | 0a 0d 0a 09 09 72 65 74 |;.....}.|.....ret|
|000015b0| 75 72 6e 20 54 72 75 65 | 3b 0d 0a 09 7d 0d 0a 0d |urn True|;...}...|
|000015c0| 0a 09 72 65 74 75 72 6e | 20 46 61 6c 73 65 3b 09 |..return| False;.|
|000015d0| 0d 0a 7d 0d 0a 0d 0a 00 |                         |..}.....|        |
+--------+-------------------------+-------------------------+--------+--------+